1100
Is it is possible to exclude the non-working days when displaying the histogram using the exBarEffort for exHistOverAllocation type

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Tasks")
	with .Chart
		.LevelCount = 2
		.PaneWidth(0) = 40
		.FirstVisibleDate = {^2005-6-20}
		.HistogramVisible = .T.
		.HistogramHeight = 64
		.HistogramView = 112
		with .Bars.Item("Split")
			.Pattern = 6
			.Shape = 18
			.Color = RGB(0,0,128)
		endwith
		with .Bars.Add("Task:Split")
			.Color = RGB(0,0,128)
			.Shortcut = "WorkingTask"
			.Pattern = 6
			.HistogramPattern = 6
			.HistogramType = 1
		endwith
		with .Bars.Item("Task")
			.Color = RGB(0,0,255)
			.Pattern = 5
			.HistogramType = 1
			.HistogramPattern = 5
		endwith
	endwith
	with .Items
		h = .AddItem("True")
		.AddBar(h,"WorkingTask",{^2005-6-23},{^2005-6-29})
		.ItemBar(h,"",21) = 4
		.ItemBar(h,"",20) = .T.
		h = .AddItem("False")
		.AddBar(h,"Task",{^2005-6-23},{^2005-6-29})
		.ItemBar(h,"",21) = 4
		.ItemBar(h,"",20) = .F.
	endwith
	.EndUpdate
endwith
1099
I display numbers in my chart, but the AddBar requires a date how can I add a bar
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 0
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		with .Level(0)
			.Label = "<%i%>"
			.ToolTip = ""
		endwith
		.UnitWidth = 24
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",2,4)
		.AddBar(.AddItem("Task 2"),"Task",6,10)
	endwith
	.EndUpdate
endwith
1098
I display numbers in the chart's header but do not want to get displayed negative numbers. How can i do that
*** DateChange event - Occurs when the first visible date is changed. ***
LPARAMETERS nop
	with thisform.G2antt1
		.Chart.FirstVisibleDate = 0
		.Object.ScrollPartEnable(2,1024) = .F.
	endwith

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.PaneWidth(0) = 0
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		with .Level(0)
			.Label = "<%i%>"
			.ToolTip = "<%i%>"
		endwith
		.UnitWidth = 24
	endwith
	.EndUpdate
endwith
1097
How can I display numbers in the chart's header instead dates

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.PaneWidth(0) = 0
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		with .Level(0)
			.Label = "<%i%>"
			.ToolTip = ""
		endwith
		.UnitWidth = 24
	endwith
	.EndUpdate
endwith
1096
How can I create a bar that's not sizable, or can not be resized by default similar with milestone
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.PaneWidth(0) = 0
		.FirstVisibleDate = {^2000-12-24}
		.LevelCount = 2
		with .Bars.Add("Custom")
			.Shape = 0
			.StartShape = 1
			.EndShape = 0
		endwith
	endwith
	with .Items
		.AddBar(.AddItem(""),"Custom",{^2001-1-2},{^2001-1-2},"K1","This TYPE of bar can not be resized.")
	endwith
	.EndUpdate
endwith
1095
Is it possible to hide the non-working parts for items using the ItemNonworkingUnits, even if set the ShowNonworkingUnits, ShowNonworkingDates on False

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = {^2000-12-27}
		.PaneWidth(0) = 64
		.LevelCount = 2
		.ShowNonworkingUnits = .F.
		.ShowNonworkingDates = .F.
		.NonworkingDaysPattern = 0
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.ItemNonworkingUnits(h2,.F.) = "weekday(value) = 1"
		.AddBar(h2,"Task",{^2001-1-4},{^2001-1-6},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-8},{^2001-1-10},"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
	endwith
	.EndUpdate
endwith
1094
Is it possible to show the non-working parts for certain items, even if I hide the default non-working part

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = {^2000-12-27}
		.PaneWidth(0) = 64
		.LevelCount = 2
		.ShowNonworkingUnits = .F.
		.ShowNonworkingDates = .F.
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.ItemNonworkingUnits(h2,.F.) = "weekday(value) = 1"
		.AddBar(h2,"Task",{^2001-1-4},{^2001-1-6},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-8},{^2001-1-10},"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
	endwith
	.EndUpdate
endwith
1093
How can I hide the non-working part of the chart
with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2008-1-1}
		.PaneWidth(0) = 0
		.LevelCount = 2
		.ShowNonworkingUnits = .F.
		.ShowNonworkingDates = .F.
	endwith
	.EndUpdate
endwith
1092
Is it possible to let users selects cells as in Excel
with thisform.G2antt1
	.BeginUpdate
	.FullRowSelect = 1
	.SingleSel = .F.
	.ReadOnly = -1
	.MarkSearchColumn = .F.
	.ShowFocusRect = .F.
	.LinesAtRoot = -1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(200,225,242)
	with .Columns
		.Add("A")
		with .Add("B")
			.AllowSizing = .F.
			.Width = 24
		endwith
		with .Add("C")
			.AllowSizing = .F.
			.Width = 24
			.Def(0) = 1
			.PartialCheck = .T.
		endwith
		with .Add("D")
			.AllowSizing = .F.
			.Width = 24
			.Def(1) = 1
		endwith
	endwith
	with .Items
		h = .InsertItem(Null,Null,"Group 1")
		h1 = .InsertItem(h,Null,16)
		.CellValue(h1,1) = 17
		h1 = .InsertItem(h,Null,2)
		.CellValue(h1,1) = 11
		h1 = .InsertItem(h,Null,2)
		.ItemBackColor(h1) = RGB(240,240,240)
		.CellValue(h1,1) = 9
		.ExpandItem(h) = .T.
		h = .InsertItem(Null,Null,"Group 2")
		.CellValueFormat(h,2) = 1
		h1 = .InsertItem(h,Null,16)
		.CellValue(h1,1) = 9
		h1 = .InsertItem(h,Null,12)
		.CellValue(h1,1) = 11
		h1 = .InsertItem(h,Null,2)
		.CellValue(h1,1) = 2
		.ExpandItem(h) = .T.
		.SelectItem(h) = .T.
	endwith
	.EndUpdate
endwith
1091
How can I hide a date from the chart view
with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2008-1-1}
		.PaneWidth(0) = 0
		.LevelCount = 2
		.AllowInsideZoom = .T.
		.AllowResizeInsideZoom = .F.
		.InsideZoomOnDblClick = .F.
		with .InsideZooms
			.SplitBaseLevel = .F.
			.DefaultWidth = 0
			.Add({^2008-1-4})
			.Add({^2008-1-5})
			.Add({^2008-1-6})
		endwith
		.SelectLevel = 1
		.SelectDate({^2008-1-5}) = .T.
	endwith
	.EndUpdate
endwith
1090
Can the SchedulePDM displays and edit the working units for my bars

*** BarResizing event - Occurs when a bar is moving or resizing. ***
LPARAMETERS Item, Key
	with thisform.G2antt1
		.Items.SchedulePDM(Item,Key)
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Items.AllowCellValueToItemBar = .T.
	.Columns.Add("Task")
	with .Columns.Add("Working")
		.Def(18) = 258
		.Editor.EditType = 4
	endwith
	with .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 96
		.AllowLinkBars = .F.
		.AllowCreateBar = 0
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-4},"")
		.AddLink("L1",h1,"",h2,"")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-6},"")
		.AddLink("L2",h2,"",h3,"")
		.Link("L2",12) = "FF"
		.Link("L2",6) = 2
		.Link("L2",7) = 2
		h4 = .AddItem("Task 4")
		.AddBar(h4,"Task",{^2001-1-2},{^2001-1-4},"")
		.AddLink("L3",h4,"",h3,"")
		.ItemBar(0,"<*>",20) = .T.
		.SchedulePDM(.FirstVisibleItem,"")
	endwith
	.EndUpdate
endwith
1089
Can the SchedulePDM displays the working units for my bars
*** BarResizing event - Occurs when a bar is moving or resizing. ***
LPARAMETERS Item, Key
	with thisform.G2antt1
		.Items.SchedulePDM(Item,Key)
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Items.AllowCellValueToItemBar = .T.
	.Columns.Add("Task")
	.Columns.Add("Working").Def(18) = 258
	with .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 96
		.AllowLinkBars = .F.
		.AllowCreateBar = 0
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-4},"")
		.AddLink("L1",h1,"",h2,"")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-6},"")
		.AddLink("L2",h2,"",h3,"")
		.Link("L2",12) = "FF"
		.Link("L2",6) = 2
		.Link("L2",7) = 2
		h4 = .AddItem("Task 4")
		.AddBar(h4,"Task",{^2001-1-2},{^2001-1-4},"")
		.AddLink("L3",h4,"",h3,"")
		.ItemBar(0,"<*>",20) = .T.
		.SchedulePDM(.FirstVisibleItem,"")
	endwith
	.EndUpdate
endwith
1088
Can the SchedulePDM keeps the working units for my bars
*** BarResizing event - Occurs when a bar is moving or resizing. ***
LPARAMETERS Item, Key
	with thisform.G2antt1
		.Items.SchedulePDM(Item,Key)
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 48
		.AllowLinkBars = .F.
		.AllowCreateBar = 0
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-4},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-6},"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.Link("L2",12) = "FF"
		.Link("L2",6) = 2
		.Link("L2",7) = 2
		h4 = .AddItem("Task 4")
		.AddBar(h4,"Task",{^2001-1-2},{^2001-1-4},"K4")
		.AddLink("L3",h4,"K4",h3,"K3")
		.ItemBar(0,"<*>",20) = .T.
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1087
How can I arrange automatically the bars based on their links as soon as user moves the bars
*** BarResizing event - Occurs when a bar is moving or resizing. ***
LPARAMETERS Item, Key
	with thisform.G2antt1
		.Items.SchedulePDM(Item,Key)
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 48
		.AllowLinkBars = .F.
		.AllowCreateBar = 0
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-4},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-6},"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.Link("L2",12) = "FF"
		.Link("L2",6) = 2
		.Link("L2",7) = 2
		h4 = .AddItem("Task 4")
		.AddBar(h4,"Task",{^2001-1-2},{^2001-1-4},"K4")
		.AddLink("L3",h4,"K4",h3,"K3")
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1086
How can I arrange automatically the bars based on their links as soon as user moves the bars
*** BarResize event - Occurs when a bar is moved or resized. ***
LPARAMETERS Item, Key
	with thisform.G2antt1
		.Items.SchedulePDM(Item,Key)
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
		.AllowLinkBars = .F.
		.AllowCreateBar = 0
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-4},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-4},"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1085
I have some buttons added on the control's scroll bar, how can I can know when the button is being clicked
*** ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar. ***
LPARAMETERS ScrollBar, ScrollPart
	with thisform.G2antt1
		DEBUGOUT( ScrollBar )
		DEBUGOUT( ScrollPart )
	endwith

with thisform.G2antt1
	.Object.ScrollPartVisible(1,32768) = .T.
	.Object.ScrollPartVisible(1,16384) = .T.
	.Object.ScrollPartVisible(1,1) = .T.
	.Object.ScrollPartVisible(1,2) = .T.
	.ScrollBars = 5
endwith
1084
How do I get notified once the user clicks a hyperlink created using the anchor HTML tag
*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS AnchorID, Options
	with thisform.G2antt1
		DEBUGOUT( AnchorID )
		DEBUGOUT( Options )
	endwith

with thisform.G2antt1
	.Columns.Add("Default").Def(17) = 1
	with .Items
		.AddItem("This is a link: <aex.com;1>www.exontrol.com</a>")
		.AddItem("This is a link: <aex.net;2>www.exontrol.net</a>")
	endwith
endwith
1083
Is it possible to start editing a cell when double click it
*** DblClick event - Occurs when the user dblclk the left mouse button over an object. ***
LPARAMETERS Shift, X, Y
	with thisform.G2antt1
		.Edit()
	endwith

with thisform.G2antt1
	.BeginUpdate
	.AutoEdit = .F.
	.MarkSearchColumn = .F.
	.Columns.Add("Edit1").Editor.EditType = 1
	.Columns.Add("Edit2").Editor.EditType = 1
	with .Items
		.CellValue(.AddItem(1),1) = 2
	endwith
	with .Items
		.CellValue(.AddItem(3),1) = 4
	endwith
	.EndUpdate
endwith
1082
Is it possible to disable standard single-click behavior for this column, so I manually could call Edit() when needed
*** DblClick event - Occurs when the user dblclk the left mouse button over an object. ***
LPARAMETERS Shift, X, Y
	with thisform.G2antt1
		.Edit()
	endwith

with thisform.G2antt1
	.BeginUpdate
	.AutoEdit = .F.
	.MarkSearchColumn = .F.
	.Columns.Add("Edit1").Editor.EditType = 1
	.Columns.Add("Edit2").Editor.EditType = 1
	with .Items
		.CellValue(.AddItem(1),1) = 2
	endwith
	with .Items
		.CellValue(.AddItem(3),1) = 4
	endwith
	.EndUpdate
endwith
1081
How can I get or restore the old or previously value for the cell being changed
*** Change event - Occurs when the user changes the cell's content. ***
LPARAMETERS Item, ColIndex, NewValue
	with thisform.G2antt1
		DEBUGOUT( "Old-Value:" )
		DEBUGOUT( .Items.CellValue(Item,ColIndex) )
		DEBUGOUT( "New-Value:" )
		DEBUGOUT( NewValue )
	endwith

with thisform.G2antt1
	.BeginUpdate
	.MarkSearchColumn = .F.
	.Columns.Add("Edit1").Editor.EditType = 1
	.Columns.Add("Edit2").Editor.EditType = 1
	with .Items
		.CellValue(.AddItem(1),1) = 2
	endwith
	with .Items
		.CellValue(.AddItem(3),1) = 4
	endwith
	.EndUpdate
endwith
1080
How can I display the number of items being found after filtering
*** FilterChange event - Occurs when the filter was changed. ***
LPARAMETERS nop
	with thisform.G2antt1
		.FilterBarCaption = .Items.VisibleCount
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 1
	.FilterBarPromptPattern = "london"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1079
How can I highligth the item from the cursor as it moves
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button, Shift, X, Y
	with thisform.G2antt1
		.BeginUpdate
		h = .ItemFromPoint(-1,-1,c,hit)
		with .Items
			.ClearItemBackColor(thisform.G2antt1.Background(1000)) && 0x200 Or BackgroundPartEnum.exHSRight Or BackgroundPartEnum.exListOLEDropPosition
			.ItemBackColor(h) = RGB(240,250,240)
		endwith
		.Object.Background(1000) = h && 0x200 Or BackgroundPartEnum.exHSRight Or BackgroundPartEnum.exListOLEDropPosition
		.EndUpdate
	endwith

with thisform.G2antt1
	.BeginUpdate
	.LinesAtRoot = -1
	.DrawGridLines = 1
	.SelBackColor = RGB(240,250,240)
	.SelForeColor = RGB(0,0,0)
	.ShowFocusRect = .F.
	with .Chart
		.SelBackColor = RGB(240,250,240)
	endwith
	.Columns.Add("Items")
	with .Items
		h = .AddItem("R1")
		.InsertItem(h,Null,"Cell 1.1")
		.InsertItem(h,Null,"Cell 1.2")
		.ExpandItem(h) = .T.
		h = .AddItem("R2")
		.InsertItem(h,Null,"Cell 2.1")
		.InsertItem(h,Null,"Cell 2.2")
		.ExpandItem(h) = .T.
	endwith
	.EndUpdate
endwith
1078
How can I get the item from the cursor
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button, Shift, X, Y
	with thisform.G2antt1
		h = .ItemFromPoint(-1,-1,c,hit)
		DEBUGOUT( "Handle" )
		DEBUGOUT( h )
		DEBUGOUT( "Index" )
		DEBUGOUT( .Items.ItemToIndex(h) )
	endwith

with thisform.G2antt1
	.BeginUpdate
	.LinesAtRoot = -1
	.DrawGridLines = 1
	.Columns.Add("Items")
	with .Items
		h = .AddItem("R1")
		.InsertItem(h,Null,"Cell 1.1")
		.InsertItem(h,Null,"Cell 1.2")
		.ExpandItem(h) = .T.
		h = .AddItem("R2")
		.InsertItem(h,Null,"Cell 2.1")
		.InsertItem(h,Null,"Cell 2.2")
		.ExpandItem(h) = .T.
	endwith
	.EndUpdate
endwith
1077
How can I get the column from the cursor, not only in the header
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button, Shift, X, Y
	with thisform.G2antt1
		DEBUGOUT( .ColumnFromPoint(-1,0) )
	endwith

with thisform.G2antt1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("P1")
	.Columns.Add("P2")
	.DrawGridLines = -1
	with .Items
		h = .AddItem("R1")
		.CellValue(h,1) = "R2"
		.CellValue(.InsertItem(h,Null,"Cell 1.1"),1) = "Cell 1.2"
		.CellValue(.InsertItem(h,Null,"Cell 2.1"),1) = "Cell 2.2"
		.ExpandItem(h) = .T.
	endwith
	.EndUpdate
endwith
1076
How can I get the column from the cursor
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button, Shift, X, Y
	with thisform.G2antt1
		DEBUGOUT( .ColumnFromPoint(-1,-1) )
	endwith

with thisform.G2antt1
	.BeginUpdate
	.LinesAtRoot = -1
	.DrawGridLines = -1
	.Columns.Add("P1")
	.Columns.Add("P2")
	with .Items
		h = .AddItem("R1")
		.CellValue(h,1) = "R2"
		.CellValue(.InsertItem(h,Null,"Cell 1.1"),1) = "Cell 1.2"
		.CellValue(.InsertItem(h,Null,"Cell 2.1"),1) = "Cell 2.2"
		.ExpandItem(h) = .T.
	endwith
	.EndUpdate
endwith
1075
How can I get the cell's caption from the cursor
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button, Shift, X, Y
	with thisform.G2antt1
		h = .ItemFromPoint(-1,-1,c,hit)
		DEBUGOUT( .Items.CellCaption(h,c) )
	endwith

with thisform.G2antt1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Items
		h = .AddItem("R1")
		.InsertItem(h,Null,"Cell 1.1")
		.InsertItem(h,Null,"Cell 1.2")
		.ExpandItem(h) = .T.
		h = .AddItem("R2")
		.InsertItem(h,Null,"Cell 2.1")
		.InsertItem(h,Null,"Cell 2.2")
		.ExpandItem(h) = .T.
	endwith
	.EndUpdate
endwith
1074
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
with thisform.G2antt1
	.BeginUpdate
	.DrawGridLines = -1
	.GridLineStyle = 33 && GridLinesStyleEnum.exGridLinesVSolid Or GridLinesStyleEnum.exGridLinesHDot4
	.Columns.Add("C1")
	.Columns.Add("C2")
	.Columns.Add("C3")
	with .Items
		h = .AddItem("Item 1")
		.CellValue(h,1) = "SubItem 1.2"
		.CellValue(h,2) = "SubItem 1.3"
		h = .AddItem("Item 2")
		.CellValue(h,1) = "SubItem 2.2"
		.CellValue(h,2) = "SubItem 2.3"
	endwith
	.EndUpdate
endwith
1073
How can I show the bars over the grid lines, i.e. so you cannot see the grid lines 'through' the bar

with thisform.G2antt1
	.BeginUpdate
	.DrawGridLines = -1
	.GridLineColor = RGB(220,220,220)
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2001-1-1}
		.DrawGridLines = -1
		.GridLineStyle = 256
		.LevelCount = 2
		with .Level(1)
			.DrawGridLines = .T.
			.GridLineColor = RGB(220,220,220)
		endwith
		with .Bars.Item("Task")
			.Pattern = 1
			.Height = 14
		endwith
	endwith
	.Columns.Add("Column")
	with .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A")
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-15},"B")
	endwith
	.EndUpdate
endwith
1072
Is it possible to change the style for the vertical grid lines, in the chart area only

with thisform.G2antt1
	.BeginUpdate
	.DrawGridLines = -1
	.GridLineStyle = 12
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2001-1-1}
		.DrawGridLines = -1
		.GridLineStyle = 12
		.LevelCount = 2
		.Level(1).DrawGridLines = .T.
		with .Level(0)
			.GridLineColor = RGB(255,0,0)
			.GridLineStyle = 32
		endwith
		.Bars.Item("Task").Pattern = 1
	endwith
	.Columns.Add("Column")
	with .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A")
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-15},"B")
	endwith
	.EndUpdate
endwith
1071
Is it possible to change the style for the grid lines, for instance to be solid not dotted

with thisform.G2antt1
	.BeginUpdate
	.DrawGridLines = -1
	.GridLineStyle = 48
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2001-1-1}
		.DrawGridLines = -1
		.GridLineStyle = 48
		.LevelCount = 2
		.Level(1).DrawGridLines = .T.
		.Bars.Item("Task").Pattern = 1
	endwith
	.Columns.Add("Column")
	with .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A")
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-15},"B")
	endwith
	.EndUpdate
endwith
1070
How can I show the grid lines for the chart and list area

with thisform.G2antt1
	.DrawGridLines = -1
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2001-1-1}
		.DrawGridLines = -1
		.LevelCount = 2
		.Level(1).DrawGridLines = .T.
		.Bars.Item("Task").Pattern = 1
	endwith
	.Columns.Add("Column")
	with .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A")
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-15},"B")
	endwith
endwith
1069
In the level of the chart we are showing the week number of the year (1-53) (Week: ww). However the weeknumber isn't correct. In western Europe the week of 04/01/2010 till 10/01/2010 is weeknumber 1, however the g2antt says it's week 2

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.FirstVisibleDate = {^2009-12-28}
		.LevelCount = 2
		.Level(0).Label = "Week: <%ww%>/<%yyyy%>"
		.FirstWeekDay = 1
	endwith
endwith
1068
How can I determine the current visible date range of the gantt chart area
with thisform.G2antt1
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-6})
		.AddBar(.AddItem("Task 2"),"Task",{^2001-1-3},{^2001-1-7})
		.AddBar(.AddItem("Task 3"),"Task",{^2001-1-4},{^2001-1-8})
		.AddBar(.AddItem("Task 4"),"Task",{^2001-1-6},{^2001-1-10})
	endwith
	DEBUGOUT( .Chart.StartPrintDate )
	DEBUGOUT( .Chart.EndPrintDate )
endwith
1067
How can I change the progress bar using a spin editor using values from 0 to 100

with thisform.G2antt1
	.BeginUpdate
	.Items.AllowCellValueToItemBar = .T.
	with .Columns
		.Add("Task")
		with .Add("Percent")
			.Editor.EditType = 4
			.Def(18) = 518
		endwith
	endwith
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.Bars.Add("Task%Progress")
	endwith
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task%Progress",{^2001-1-2},{^2001-1-6})
		.CellValue(h,1) = 40
		h = .AddItem("Task 2")
		.AddBar(h,"Task%Progress",{^2001-1-2},{^2001-1-6})
		.CellValue(h,1) = 50
	endwith
	.EndUpdate
endwith
1066
Is it possible to display the histogram for selected bars only

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.LevelCount = 2
		.PaneWidth(0) = 64
		.FirstVisibleDate = {^2001-1-1}
		.HistogramVisible = .T.
		.HistogramView = 8
		.HistogramHeight = 32
		.Bars.Item("Task").HistogramPattern = 6
	endwith
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-3},{^2001-1-5},1)
		.AddBar(.AddItem("Item 2"),"Task",{^2001-1-4},{^2001-1-7},2)
		.AddBar(.AddItem("Item 3"),"Task",{^2001-1-2},{^2001-1-6},3)
		.ItemBar(0,2,257) = .T.
		.ItemBar(0,3,257) = .T.
	endwith
	.EndUpdate
endwith
1065
How can I fix a bar, so it is not selectable, moveable or resizable, fixed in other words
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-8},"K1","Unselectable")
		.ItemBar(h1,"K1",29) = .F.
	endwith
	.EndUpdate
endwith
1064
How can I fix a bar, so it is not moveable or resizable
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1","Fixed")
		.ItemBar(h1,"K1",10) = .F.
		.ItemBar(h1,"K1",11) = .F.
	endwith
	.EndUpdate
endwith
1063
Is is possible to fix a bar during PDM scheduling
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"TaskF",{^2001-1-2},{^2001-1-4},"K1")
		.ItemBar(h1,"K1",10) = .F.
		.ItemBar(h1,"K1",11) = .F.
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-4},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"TaskF",{^2001-1-2},{^2001-1-4},"K3")
		.ItemBar(h3,"K3",10) = .F.
		.ItemBar(h3,"K3",11) = .F.
		.AddLink("L2",h2,"K2",h3,"K3")
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1062
How can I specify that during scheduling the link, bars should be delayed, on working part

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1")
		.ItemBar(h1,"K1",20) = .T.
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-5},"K2")
		.ItemBar(h2,"K2",20) = .T.
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-6},"K3")
		.ItemBar(h3,"K3",20) = .T.
		.AddLink("L2",h2,"K2",h3,"K3")
		.Link("L2",12) = "link delays the bars<br>for <b>2</b> working days"
		.Link("L2",16) = 2
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1061
How can I specify that during scheduling the link, bars should be delayed

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.ShowNonworkingDates = .F.
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-5},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-6},"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.Link("L2",12) = "   Finish-Start<br>delayed <b>4</b> days"
		.Link("L2",17) = 4
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1060
The SchedulePDM method put the bars on non-working part, how can I prevent that

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.ItemBar(h1,"K1",20) = .T.
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-5},"K2")
		.ItemBar(h2,"K2",20) = .T.
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-6},"K3")
		.ItemBar(h3,"K3",20) = .T.
		.AddLink("L2",h2,"K2",h3,"K3")
		.Link("L2",12) = "FS"
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1059
How can I add a SF (Start-Finish) link so activities get arranged using the SchedulePDM

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 48
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-5},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-6},"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.Link("L2",12) = "SF"
		.Link("L2",6) = 0
		.Link("L2",7) = 2
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1058
How can I add a SS (Start-Start) link so activities get arranged using the SchedulePDM

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 48
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-5},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-6},"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.Link("L2",12) = "SS"
		.Link("L2",6) = 0
		.Link("L2",7) = 0
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1057
How can I add a FF (Finish-Finish) link so activities get arranged using the SchedulePDM

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 48
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-5},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-6},"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.Link("L2",12) = "FF"
		.Link("L2",6) = 2
		.Link("L2",7) = 2
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1056
How can I add a FS (Finish-Start) link so activities get arranged using the SchedulePDM

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-5},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-6},"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.Link("L2",12) = "FS"
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1055
How can I schedule activities in the project plan
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-4},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-4},"K3")
		.AddLink("L2",h3,"K3",h2,"K2")
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1054
How do I arrange the bars based on the links

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-4},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-4},"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1053
Is is possible to use HTML tags to display in the filter caption
with thisform.G2antt1
	.BeginUpdate
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
	.Columns.Add("")
	with .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	endwith
	.EndUpdate
endwith
1052
How can I find the number of items after filtering
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("")
	with .Items
		h = .AddItem("")
		.CellValue(h,0) = .VisibleItemCount
	endwith
	.EndUpdate
endwith
1051
How can I change the filter caption
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 12801 && FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london robert"
	.FilterBarCaption = "<r>Found: ... "
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1050
While using the filter prompt is it is possible to use wild characters
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 16
	.FilterBarPromptPattern = "lon* seat*"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1049
How can I list all items that contains any of specified words, not necessary at the beggining
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 4610 && FilterPromptEnum.exFilterPromptStartWords Or FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london davolio"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1048
How can I list all items that contains any of specified words, not strings
with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.Chart.PaneWidth(1) = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 12802 && FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london nancy"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1047
How can I list all items that contains all specified words, not strings
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 12801 && FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london robert"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1046
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 258 && FilterPromptEnum.exFilterPromptCaseSensitive Or FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "Anne"
	.Chart.PaneWidth(1) = 0
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1045
Is it possible to list only items that ends with any of specified strings
with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 4
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	.Chart.PaneWidth(1) = 0
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1044
Is it possible to list only items that ends with any of specified strings
with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 4
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	.Chart.PaneWidth(1) = 0
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1043
Is it possible to list only items that starts with any of specified strings
with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 3
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "An M"
	.Chart.PaneWidth(1) = 0
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1042
Is it possible to list only items that starts with specified string
with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 3
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "A"
	.Chart.PaneWidth(1) = 0
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1041
How can I specify that the list should include any of the seqeunces in the pattern
with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 2
	.FilterBarPromptPattern = "london seattle"
	.Chart.PaneWidth(1) = 0
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1040
How can I specify that all sequences in the filter pattern must be included in the list
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptType = 1
	.FilterBarPromptPattern = "london manager"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1039
How do I change at runtime the filter prompt
with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.Chart.PaneWidth(1) = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptPattern = "london manager"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1038
How do I specify to filter only a single column when using the filter prompt
with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.Chart.PaneWidth(1) = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPromptColumns = "2,3"
	.FilterBarPromptPattern = "london"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1037
How do I change the prompt or the caption being displayed in the filter bar
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	.FilterBarPrompt = "changed"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	.EndUpdate
endwith
1036
How do I enable the filter prompt feature

with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T. && .T.
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = .T.
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith
1035
How can I unselect all bars
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4},"K1")
		.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K2")
		.AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-4},"K3")
		.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K4")
		.ItemBar(0,"<*>",257) = .T.
		.ItemBar(0,"<*>",257) = .F.
	endwith
endwith
1034
Can I select bars using a pattern using wild characters as *,

with thisform.G2antt1
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
		.ShowNonworkingDates = .F.
	endwith
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1K","K1K")
		.AddBar(h,"Task",{^2001-1-5},{^2001-1-7},"K2M","K2M")
		.AddBar(h,"Task",{^2001-1-9},{^2001-1-11},"K3K","K3K")
		.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"Q","Q")
		.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"M","M")
		.ItemBar(0,"<K*K>",257) = .T.
	endwith
endwith
1033
How can I select all bars in the item with a specified key

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.PaneWidth(0) = 48
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1","K1")
		.AddBar(h,"Task",{^2001-1-5},{^2001-1-7},"K2","K2")
		.AddBar(h,"Task",{^2001-1-9},{^2001-1-11},"P","P")
		.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"Q","Q")
		.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"M","M")
		.ItemBar(h,"<K*>",257) = .T.
	endwith
endwith
1032
How can I select all bars in the specified item

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.PaneWidth(0) = 48
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1","K1")
		.AddBar(h,"Task",{^2001-1-5},{^2001-1-7},"K2","K2")
		.AddBar(h,"Task",{^2001-1-9},{^2001-1-11},"P","P")
		.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"Q","Q")
		.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"M","M")
		.ItemBar(h,"<*>",257) = .T.
	endwith
endwith
1031
How can I select all bars with a specified key

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.PaneWidth(0) = 48
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1","K1")
		.AddBar(h,"Task",{^2001-1-5},{^2001-1-7},"K2","K2")
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-10},"P","P")
		.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"Q","Q")
		.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"P","P")
		.ItemBar(0,"<P>",257) = .T.
	endwith
endwith
1030
How can I select all bars

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.PaneWidth(0) = 48
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1","K1")
		.AddBar(h,"Task",{^2001-1-5},{^2001-1-7},"K2","K2")
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-10},"P","P")
		.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"Q","Q")
		.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"M","M")
		.ItemBar(0,"<*>",257) = .T.
	endwith
endwith
1029
I have the AllowInsideZoom property on True, but I am still not able to use the inside zoom feature

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 0
		.LevelCount = 3
		.FirstWeekDay = 1
		.Level(0).Label = "Week: <%ww%>"
		with .Level(1)
			.Label = "<%dddd%>"
			.Alignment = 1
		endwith
		.Level(2).Label = 65536
		.NonworkingHours = 16773375
		.ShowNonworkingUnits = .F.
		.ShowNonworkingDates = .F.
		.ShowNonworkingHours = .F.
		.AllowInsideZoom = .T.
		with .DefaultInsideZoomFormat
			.InsideUnit = 1048576
			.InsideLabel = "<b><%nn%></b>"
		endwith
		.InsideZooms.Add({^2001-1-1 10:00:00})
	endwith
	.EndUpdate
endwith
1028
Is there any option to find out if two bars intersects

with thisform.G2antt1
	.BeginUpdate
	.DefaultItemHeight = 22
	.Columns.Add("InterectBars")
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2001-1-1}
		.Bars.Item("Task").OverlaidType = 1
	endwith
	with .Items
		h = .AddItem("")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"A","A")
		.AddBar(h,"Task",{^2001-1-3},{^2001-1-5},"B","B")
		.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
		h = .AddItem("")
		.AddBar(h,"Task",{^2001-1-6},{^2001-1-9},"A","A")
		.AddBar(h,"Task",{^2001-1-10},{^2001-1-13},"B","B")
		.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
		h = .AddItem("")
		.AddBar(h,"Task",{^2001-1-6},{^2001-1-9},"B","B")
		.AddBar(h,"Task",{^2001-1-10},{^2001-1-13},"A","A")
		.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
	endwith
	.EndUpdate
endwith
1027
How can I find if a specified hour is a working or non-working hour, when using the ItemNonWorkingUnits

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Hour").FormatColumn = "hour(value)"
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 164
		.FirstWeekDay = 1
		.LevelCount = 2
		.UnitScale = 65536
		.NonworkingHours = 1
	endwith
	with .Items
		h = .AddItem({^2001-1-1})
		w = thisform.G2antt1.Chart.IsNonworkingDate(thisform.G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
		h = .AddItem({^2001-1-1})
		.ItemNonworkingUnits(h,.F.) = "hour(value) >0 "
		w = thisform.G2antt1.Chart.IsNonworkingDate(thisform.G2antt1.Items.CellValue(h,0),h)
		.CellValue(h,1) = w
	endwith
	.EndUpdate
endwith
1026
How can I find if a specified hour is a working or non-working hour
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Hour").FormatColumn = "hour(value)"
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 164
		.FirstWeekDay = 1
		.LevelCount = 2
		.UnitScale = 65536
		.NonworkingHours = 1
	endwith
	with .Items
		h = .AddItem({^2001-1-1})
		w = thisform.G2antt1.Chart.IsNonworkingDate(thisform.G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
		h = .AddItem({^2001-1-1 1:00:00})
		w = thisform.G2antt1.Chart.IsNonworkingDate(thisform.G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
	endwith
	.EndUpdate
endwith
1025
How can I find if a specified date-time is a working or non-working unit, when using the ItemNonWorkingUnits
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Date").Width = 48
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 128
		.FirstWeekDay = 1
		.LevelCount = 2
	endwith
	with .Items
		h = .AddItem({^2001-1-1})
		w = thisform.G2antt1.Chart.IsNonworkingDate(thisform.G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
		h = .AddItem({^2001-1-1})
		.ItemNonworkingUnits(h,.F.) = "weekday(value) in (1)"
		w = thisform.G2antt1.Chart.IsNonworkingDate(thisform.G2antt1.Items.CellValue(h,0),h)
		.CellValue(h,1) = w
	endwith
	.EndUpdate
endwith
1024
How can I find if a specified date-time is a working or non-working unit
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Date").Width = 48
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 128
		.FirstWeekDay = 1
		.LevelCount = 2
	endwith
	with .Items
		h = .AddItem({^2001-1-1})
		w = thisform.G2antt1.Chart.IsNonworkingDate(thisform.G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
		h = .AddItem({^2001-1-6})
		w = thisform.G2antt1.Chart.IsNonworkingDate(thisform.G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
	endwith
	.EndUpdate
endwith
1023
When zooming to days, the non-working part of the chart occupies some not useful space. Can I reduce it

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2002-1-3}
		.Bars.Add("Task:Split").Shortcut = "Task"
		.LevelCount = 2
		.DrawGridLines = -1
		.FirstWeekDay = 1
		.Level(0).Label = "Week: <%ww%>"
		with .Level(1)
			.Label = "<%d%>/<%m2%>"
			.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
		endwith
		.UnitWidth = 32
		.UnitWidthNonworking = -32
	endwith
	.Columns.Add("Task")
	with .Items
		h = .AddItem("Default")
		.AddBar(h,"Task",{^2002-1-4},{^2002-1-8},"A")
	endwith
	.EndUpdate
endwith
1022
My chart display only working hours, but when zooming to days, each day shows the non-working part of the day too, even if I use the ShowNonWorkingUnits property on False. What am I doing wrong

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2002-1-3 10:00:00}
		.Bars.Add("Task:Split").Shortcut = "Task"
		.LevelCount = 2
		.DrawGridLines = -1
		.FirstWeekDay = 1
		.Level(0).Label = "<%ww%>"
		with .Level(1)
			.Label = "<%dd%>"
			.Unit = 65536
			.Count = 24
		endwith
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = .F.
		.ShowNonworkingHours = .F.
		.UnitWidth = 32
	endwith
	.Columns.Add("Task")
	with .Items
		h = .AddItem("Default")
		.AddBar(h,"Task",{^2002-1-4 10:00:00},{^2002-1-8 2:00:00},"A")
		.ItemBar(h,"A",20) = .T.
	endwith
	.EndUpdate
endwith
1021
I need to display only working hours and weekend part, but for some items I need another non-working part. Is this possible

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2002-1-3}
		.Bars.Add("Task:Split").Shortcut = "Task"
		.LevelCount = 2
		.DrawGridLines = -1
		with .Level(0)
			.Label = "<%ddd%>"
			.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		endwith
		with .Level(1)
			.Label = 65536
			.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
		endwith
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = .F.
		.ShowNonworkingHours = .F.
		.UnitWidthNonworking = -24
	endwith
	.Columns.Add("Task")
	with .Items
		h = .AddItem("Default")
		.AddBar(h,"Task",{^2002-1-4},{^2002-1-8},"A")
		.ItemBar(h,"A",20) = .T.
		h = .AddItem("Friday")
		.AddBar(h,"Task",{^2002-1-3},{^2002-1-7 12:00:00},"A")
		.ItemBar(h,"A",20) = .T.
		.ItemNonworkingUnits(h,.F.) = "weekday(value) in (0,6,5) or hour(value)<10 or hour(value)>=14"
		h = .AddItem("Till 13")
		.AddBar(h,"Task",{^2002-1-4},{^2002-1-7 12:00:00},"A")
		.ItemBar(h,"A",20) = .T.
		.ItemNonworkingUnits(h,.F.) = "weekday(value) in (0,6) or hour(value)<10 or hour(value)>=13"
	endwith
	.EndUpdate
endwith
1020
I can display the working hours, but how can I hide the weekend or non-working part of the chart when using the ShowNonWorkingUnits property on False

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.FirstVisibleDate = {^2002-1-3}
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = 65536
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = .F.
		.ShowNonworkingDates = .F.
		.ShowNonworkingHours = .F.
	endwith
endwith
1019
How can I display only the working hours but uses less space for non-working part, such as weekend

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.FirstVisibleDate = {^2002-1-3}
		.LevelCount = 2
		with .Level(0)
			.Label = "<%ddd%>"
			.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		endwith
		with .Level(1)
			.Label = 65536
			.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
		endwith
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = .F.
		.ShowNonworkingHours = .F.
		.UnitWidthNonworking = -24
	endwith
endwith
1018
How can I display only the working hours but uses less space for non-working part, such as weekend

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.FirstVisibleDate = {^2002-1-3}
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		with .Level(1)
			.Label = 65536
			.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		endwith
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = .F.
		.ShowNonworkingHours = .F.
		.UnitWidthNonworking = 8
	endwith
endwith
1017
How can I display only the working hours

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.FirstVisibleDate = {^2002-1-3}
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = 65536
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = .F.
		.ShowNonworkingHours = .F.
	endwith
endwith
1016
How can I specify non-working hours

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.FirstVisibleDate = {^2002-1-3}
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = 65536
		.NonworkingHours = 16761855
	endwith
endwith
1015
How can I display the working hours for a bar

with thisform.G2antt1
	.BeginUpdate
	with .Columns
		.Add("Tasks")
		with .Add("Working")
			.Def(18) = 258
			.Def(19) = "A"
			.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
		endwith
	endwith
	.Items.AllowCellValueToItemBar = .T.
	with .Chart
		.PaneWidth(0) = 96
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = {^2002-1-3}
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = "<%hh%>"
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = .F.
		.ShowNonworkingHours = .F.
	endwith
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2002-1-4},{^2002-1-8},"A")
		.ItemBar(h,"A",20) = .T.
		h = .AddItem("Task 2")
		.AddBar(h,"Task",{^2002-1-3},{^2002-1-4},"A")
		.ItemBar(h,"A",20) = .T.
	endwith
	.EndUpdate
endwith
1014
Is it possible to show only working hours, showing a small part for the weekend days, and in the same time showing the bars by splitting the non-working part and keeping the working units for the bar while moving

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = {^2002-1-3}
		.DrawGridLines = -1
		.GridLineStyle = 512
		.PaneWidth(0) = 0
		.LevelCount = 2
		with .Level(0)
			.Label = "<%ddd%>"
			.Alignment = 1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
		endwith
		with .Level(1)
			.Label = 65536
			.DrawGridLines = -1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value"
		endwith
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = .F.
		.ShowNonworkingDates = .T.
		.ShowNonworkingHours = .F.
		.UnitWidthNonworking = -40
	endwith
	.Columns.Add("Task")
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2002-1-4},{^2002-1-8},"A")
		.ItemBar(h,"A",20) = .T.
	endwith
	.EndUpdate
endwith
1013
How can I show bars with different solid color but black border

with thisform.G2antt1
	.BeginUpdate
	.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackbox.ebn")
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Chart.Bars.Item("Task")
		.Color = 0x1000000
		.Height = 15
	endwith
	.Chart.PaneWidth(0) = 0
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"")
		.ItemBar(h,"",33) = 65535
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"")
		.ItemBar(h,"",33) = 255
	endwith
	.EndUpdate
endwith
1012
I want to display a vertical line for each week, while I still need a vertical separator for each day. Is this possible

with thisform.G2antt1
	.GridLineColor = RGB(240,240,240)
	with .Chart
		.PaneWidth(0) = 0
		.DrawGridLines = -1
		.NonworkingDays = 0
		.LevelCount = 2
		with .Level(0)
			.DrawGridLines = .T.
			.GridLineColor = RGB(0,0,0)
		endwith
		with .Level(1)
			.DrawGridLines = .T.
			.GridLineColor = RGB(240,240,240)
		endwith
	endwith
endwith
1011
How can I display the levels as year, day, AM and PM for each day
with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.FirstVisibleDate = {^2009-12-1}
		.UnitWidth = 22
		.LevelCount = 3
		.Level(0).Label = "<%yyyy%>"
		.Level(1).Label = "<%mm%>/<%dd%>"
		with .Level(2)
			.Label = "<%AM/PM%>"
			.Count = 12
		endwith
	endwith
endwith
1010
How can I change the pattern for a specified time unit, in the chart area

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.PaneWidth(0) = 0
		.LevelCount = 2
		.FirstVisibleDate = {^2008-1-1}
		.AllowInsideZoom = .T.
		.AllowResizeInsideZoom = .F.
		.InsideZoomOnDblClick = .F.
		with .DefaultInsideZoomFormat
			.PatternChart = 6
			.PatternColorChart = RGB(255,0,0)
		endwith
		with .InsideZooms
			.SplitBaseLevel = .F.
			.DefaultWidth = 18
			.Add({^2008-1-4}).AllowInsideFormat = .F.
		endwith
	endwith
	.EndUpdate
endwith
1009
How can I hide the non-working hours, but still display the non-working days with even less space

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2009-11-19}
		.DrawGridLines = -1
		.GridLineStyle = 512
		.PaneWidth(0) = 0
		.LevelCount = 2
		with .Level(0)
			.Label = "<%dddd%>"
			.Alignment = 1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
		endwith
		with .Level(1)
			.Label = 65536
			.DrawGridLines = -1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value"
		endwith
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = .F.
		.ShowNonworkingDates = .T.
		.ShowNonworkingHours = .F.
		.UnitWidth = 32
		.UnitWidthNonworking = -32
	endwith
	.EndUpdate
endwith
1008
How can I hide the non-working hours, but still display the non-working days with less space

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2009-11-19}
		.DrawGridLines = -1
		.GridLineStyle = 512
		.PaneWidth(0) = 0
		.LevelCount = 2
		with .Level(0)
			.Label = "<%dddd%>"
			.Alignment = 1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value"
		endwith
		with .Level(1)
			.Label = 65536
			.DrawGridLines = -1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value"
		endwith
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = .F.
		.ShowNonworkingDates = .T.
		.ShowNonworkingHours = .F.
		.UnitWidth = 32
		.UnitWidthNonworking = 12
	endwith
	.EndUpdate
endwith
1007
How can I hide the non-working hours, but still display the non-working days

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2009-11-19}
		.DrawGridLines = -1
		.GridLineStyle = 512
		.PaneWidth(0) = 0
		.LevelCount = 2
		with .Level(0)
			.Label = "<%dddd%>"
			.Alignment = 1
		endwith
		with .Level(1)
			.Label = 65536
			.DrawGridLines = -1
		endwith
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = .F.
		.ShowNonworkingDates = .T.
		.ShowNonworkingHours = .F.
	endwith
	.EndUpdate
endwith
1006
How can I hide the non-working hours, and the non-working days

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2009-11-19}
		.DrawGridLines = -1
		.GridLineStyle = 512
		.PaneWidth(0) = 0
		.LevelCount = 2
		with .Level(0)
			.Label = "<%dddd%>"
			.Alignment = 1
		endwith
		with .Level(1)
			.Label = 65536
			.DrawGridLines = -1
		endwith
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = .F.
		.ShowNonworkingDates = .F.
		.ShowNonworkingHours = .F.
	endwith
	.EndUpdate
endwith
1005
Can I highlights the non-working hours while my chart shows days

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.FirstVisibleDate = {^2001-1-1}
		.UnitWidth = 48
		.LevelCount = 2
		with .Level(1)
			.Label = "<%d%>"
			.Unit = 65536
			.Count = 24
		endwith
		.NonworkingHours = 127
	endwith
endwith
1004
How can I reduce the space/area being occupied by non-working units days or hours (method 2)

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstWeekDay = 1
		.LevelCount = 2
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 64
		.UnitWidthNonworking = -8
		.Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? '.' : value"
	endwith
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.AddBar(h,"Task",{^2001-1-5},{^2001-1-6},"K2")
		.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K3")
		.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K4")
		.ItemBar(h,"<*>",33) = 255
	endwith
	.EndUpdate
endwith
1003
How can I reduce the space/area being occupied by non-working units days or hours (method 1)

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstWeekDay = 1
		.LevelCount = 2
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 64
		.UnitWidthNonworking = 4
		.Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
	endwith
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.AddBar(h,"Task",{^2001-1-5},{^2001-1-6},"K2")
		.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K3")
		.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K4")
		.ItemBar(h,"<*>",33) = 255
	endwith
	.EndUpdate
endwith
1002
How can I hide the non-working units

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstWeekDay = 1
		.LevelCount = 2
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 64
		.ShowNonworkingUnits = .F.
		.ShowNonworkingDates = .F.
		.DrawGridLines = 2
		.Level(0).DrawGridLines = .T.
		.GridLineStyle = 512
	endwith
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.AddBar(h,"Task",{^2001-1-5},{^2001-1-6},"K2")
		.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K3")
		.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K4")
		.ItemBar(h,"<*>",33) = 255
	endwith
	.EndUpdate
endwith
1001
How can I determine that a certain bar is the topmost (zorder)

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2000-12-27}
		.Bars.Item("Task").Pattern = 1
	endwith
	with .Items
		h = .AddItem("B in front")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"A")
		.AddBar(h,"Task",{^2001-1-3},{^2001-1-5},"B","<fgcolor=FF0000>B</fgcolor>")
		.ItemBar(h,"B",18) = -2
		.ItemBar(h,"B",4) = 18
		.ItemBar(h,"B",33) = 255
		h = .AddItem("A in back")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"A","<fgcolor=FF0000>A</fgcolor>")
		.ItemBar(h,"A",18) = -2
		.ItemBar(h,"A",4) = 18
		.ItemBar(h,"A",33) = 255
		.AddBar(h,"Task",{^2001-1-3},{^2001-1-5},"B")
	endwith
	.EndUpdate
endwith